Invisible Universe/Invisible Universe (1995)(Voyager)[Mac-PC].iso/mac/UNIVERSE/SHARED.DIR/01002_Script_sbx

Text File | 1995-11-21 | 1KB | 57 lines

-- standard quickDraw button behavior
--ancestor to standard button trios [sbt]
--property myChannel, myScript

--on birth me, sp,sc
--  set myChannel to integer(sp)
--  set myScript to sc
--  return me
--end

--change appearance
on sbnorm theLine
  set myChannel = integer(item 4 of theLine)

  puppetSprite myChannel,TRUE
  set the ink of sprite myChannel to 39
  updateStage
  puppetSprite myChannel, false
end

on sbrollo myChannel, dummy
  --put ">>>my rollover cast 1002  sb: chan=" & myChannel

  puppetSprite myChannel,TRUE
  set the ink of sprite myChannel to 38
  updateStage
  -- puppetSprite myChannel, false
end

on sbpress theLine
  set myChannel = integer(item 4 of theLine)
  puppetSprite myChannel,TRUE
  set the ink of sprite myChannel to 34
  updateStage
  puppetSprite myChannel, false
end

on sbdoScript theLine
  set command = item 7 of theLine
  do command
end

on sbc me
  return myChannel
end

on sbr me
  return myRollover
end

on sbp me
  return myPressed
end

on sbn me
  return myNormal
end